#tag Window
Begin Window winTypeMain
   BackColor       =   16777215
   Backdrop        =   ""
   BalloonHelp     =   ""
   CloseButton     =   True
   Composite       =   False
   Frame           =   0
   FullScreen      =   False
   HasBackColor    =   True
   Height          =   300
   ImplicitInstance=   True
   LiveResize      =   True
   MacProcID       =   0
   MaxHeight       =   32000
   MaximizeButton  =   True
   MaxWidth        =   32000
   MenuBar         =   1500971007
   MenuBarVisible  =   True
   MinHeight       =   64
   MinimizeButton  =   True
   MinWidth        =   64
   Placement       =   0
   Resizeable      =   True
   Title           =   "rb2007r5b3"
   Visible         =   True
   Width           =   300
   Begin ListBox ListBox1
      AutoDeactivate  =   True
      AutoHideScrollbars=   True
      Bold            =   ""
      ColumnCount     =   2
      ColumnsResizable=   ""
      ColumnWidths    =   ""
      DataField       =   ""
      DataSource      =   ""
      DefaultRowHeight=   -1
      Enabled         =   True
      EnableDrag      =   ""
      EnableDragReorder=   ""
      GridLinesHorizontal=   3
      GridLinesVertical=   0
      HasHeading      =   ""
      HeadingIndex    =   -1
      Height          =   266
      HelpTag         =   ""
      Hierarchical    =   ""
      Index           =   -2147483648
      InitialParent   =   ""
      InitialValue    =   ""
      Italic          =   ""
      Left            =   11
      LockBottom      =   True
      LockLeft        =   True
      LockRight       =   True
      LockTop         =   True
      RequiresSelection=   ""
      Scope           =   0
      ScrollbarHorizontal=   ""
      ScrollBarVertical=   True
      SelectionType   =   0
      TabIndex        =   0
      TabPanelIndex   =   0
      TextFont        =   "System"
      TextSize        =   0
      Top             =   14
      Underline       =   ""
      UseFocusRing    =   True
      Visible         =   True
      Width           =   278
      _ScrollOffset   =   0
      _ScrollWidth    =   -1
      BehaviorIndex   =   0
   End
End
#tag EndWindow

#tag WindowCode
	#tag Event
		Sub Open()
		  self.BackColor = ColorExtends.X11Colour( "WhiteSmoke" )
		End Sub
	#tag EndEvent


	#tag Method, Flags = &h0
		Sub AddColour(lb As Listbox, c As Color)
		  dim s as String = c.x11name
		  lb.AddRow s
		  lb.CellTag( lb.LastIndex, 1) = c
		End Sub
	#tag EndMethod


#tag EndWindowCode

#tag Events ListBox1
	#tag Event
		Sub Open()
		  AddColour me, &cCD5C5C
		  AddColour me, &cF08080
		  AddColour me, &cFA8072
		  AddColour me, &cE9967A
		  AddColour me, &cFFA07A
		  AddColour me, &cDC143C
		  AddColour me, &cFF0000
		  AddColour me, &cB22222
		  AddColour me, &c8B0000
		  AddColour me, &cFFC0CB
		  AddColour me, &cFFB6C1
		  AddColour me, &cFF69B4
		  AddColour me, &cFF1493
		  AddColour me, &cC71585
		  AddColour me, &cDB7093
		  AddColour me, &cFFA07A
		  AddColour me, &cFF7F50
		  AddColour me, &cFF6347
		  AddColour me, &cFF4500
		  AddColour me, &cFF8C00
		  AddColour me, &cFFA500
		  AddColour me, &cFFD700
		  AddColour me, &cFFFF00
		  AddColour me, &cFFFFE0
		  AddColour me, &cFFFACD
		  AddColour me, &cFAFAD2
		  AddColour me, &cFFEFD5
		  AddColour me, &cFFE4B5
		  AddColour me, &cFFDAB9
		  AddColour me, &cEEE8AA
		  AddColour me, &cF0E68C
		  AddColour me, &cBDB76B
		  AddColour me, &cE6E6FA
		  AddColour me, &cD8BFD8
		  AddColour me, &cDDA0DD
		  AddColour me, &cEE82EE
		  AddColour me, &cDA70D6
		  AddColour me, &cFF00FF
		  AddColour me, &cFF00FF
		  AddColour me, &cBA55D3
		  AddColour me, &c9370DB
		  AddColour me, &c8A2BE2
		  AddColour me, &c9400D3
		  AddColour me, &c9932CC
		  AddColour me, &c8B008B
		  AddColour me, &c800080
		  AddColour me, &c4B0082
		  AddColour me, &c6A5ACD
		  AddColour me, &c483D8B
		  AddColour me, &cADFF2F
		  AddColour me, &c7FFF00
		  AddColour me, &c7CFC00
		  AddColour me, &c00FF00
		  AddColour me, &c32CD32
		  AddColour me, &c98FB98
		  AddColour me, &c90EE90
		  AddColour me, &c00FA9A
		  AddColour me, &c00FF7F
		  AddColour me, &c3CB371
		  AddColour me, &c2E8B57
		  AddColour me, &c228B22
		  AddColour me, &c008000
		  AddColour me, &c006400
		  AddColour me, &c9ACD32
		  AddColour me, &c6B8E23
		  AddColour me, &c808000
		  AddColour me, &c556B2F
		  AddColour me, &c66CDAA
		  AddColour me, &c8FBC8F
		  AddColour me, &c20B2AA
		  AddColour me, &c008B8B
		  AddColour me, &c008080
		  AddColour me, &c00FFFF
		  AddColour me, &c00FFFF
		  AddColour me, &cE0FFFF
		  AddColour me, &cAFEEEE
		  AddColour me, &c7FFFD4
		  AddColour me, &c40E0D0
		  AddColour me, &c48D1CC
		  AddColour me, &c00CED1
		  AddColour me, &c5F9EA0
		  AddColour me, &c4682B4
		  AddColour me, &cB0C4DE
		  AddColour me, &cB0E0E6
		  AddColour me, &cADD8E6
		  AddColour me, &c87CEEB
		  AddColour me, &c87CEFA
		  AddColour me, &c00BFFF
		  AddColour me, &c1E90FF
		  AddColour me, &c6495ED
		  AddColour me, &c7B68EE
		  AddColour me, &c4169E1
		  AddColour me, &c0000FF
		  AddColour me, &c0000CD
		  AddColour me, &c00008B
		  AddColour me, &c000080
		  AddColour me, &c191970
		  AddColour me, &cFFF8DC
		  AddColour me, &cFFEBCD
		  AddColour me, &cFFE4C4
		  AddColour me, &cFFDEAD
		  AddColour me, &cF5DEB3
		  AddColour me, &cDEB887
		  AddColour me, &cD2B48C
		  AddColour me, &cBC8F8F
		  AddColour me, &cF4A460
		  AddColour me, &cDAA520
		  AddColour me, &cB8860B
		  AddColour me, &cCD853F
		  AddColour me, &cD2691E
		  AddColour me, &c8B4513
		  AddColour me, &cA0522D
		  AddColour me, &cA52A2A
		  AddColour me, &c800000
		  AddColour me, &cFFFFFF
		  AddColour me, &cFFFAFA
		  AddColour me, &cF0FFF0
		  AddColour me, &cF5FFFA
		  AddColour me, &cF0FFFF
		  AddColour me, &cF0F8FF
		  AddColour me, &cF8F8FF
		  AddColour me, &cF5F5F5
		  AddColour me, &cFFF5EE
		  AddColour me, &cF5F5DC
		  AddColour me, &cFDF5E6
		  AddColour me, &cFFFAF0
		  AddColour me, &cFFFFF0
		  AddColour me, &cFAEBD7
		  AddColour me, &cFAF0E6
		  AddColour me, &cFFF0F5
		  AddColour me, &cFFE4E1
		  AddColour me, &cDCDCDC
		  AddColour me, &cD3D3D3
		  AddColour me, &cC0C0C0
		  AddColour me, &cA9A9A9
		  AddColour me, &c808080
		  AddColour me, &c696969
		  AddColour me, &c778899
		  AddColour me, &c708090
		  AddColour me, &c2F4F4F
		  AddColour me, &c000000
		  
		End Sub
	#tag EndEvent
	#tag Event
		Function CellBackgroundPaint(g As Graphics, row As Integer, column As Integer) As Boolean
		  if row >= me.ListCount then return false
		  if column = 1 and me.CellTag(row, column) <> nil then
		    g.ForeColor = me.CellTag(row, column).ColorValue
		    g.FillRect( 0, 0, g.Width, g.Height )
		    Return true
		  end if
		End Function
	#tag EndEvent
	#tag Event
		Sub Change()
		  dim row as Integer = me.ListIndex
		  if row >= 0 and row < me.ListCount then
		    if me.CellTag( row, 1 ).Type = variant.TypeColor then
		      self.BackColor = me.CellTag( row, 1 )
		      self.Title = self.BackColor.x11name
		    end if
		  end if
		End Sub
	#tag EndEvent
#tag EndEvents
